home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgLangD.iso / Borland Visual dBASE Professiona v7.0 / DATA1.CAB / Sample_dBASE / Mugs / Mugs.cdm < prev    next >
Text File  |  1997-11-20  |  830b  |  39 lines
  1. //--------------------------------------------------------------
  2. //
  3. //  Mugs.cdm - Custom Data Module for Mugs Application
  4. //
  5. //  Requires BDE Alias: MUGS
  6. //
  7. //  Visual dBASE Samples Group
  8. //
  9. //  $Revision:   1.0  $
  10. //
  11. //  Copyright (c) 1997, Borland International, Inc. 
  12. //  All rights reserved.
  13. //
  14. //---------------------------------------------------------------
  15.  
  16. class mugsDataModule of DATAMODULE custom
  17.  
  18.  
  19.    this.SESSIONMUGS = new SESSION()
  20.    this.SESSIONMUGS.parent = this
  21.    with (this.SESSIONMUGS)
  22.       left = 2
  23.       top = 1
  24.       lockRetryInterval = 0
  25.    endwith
  26.  
  27.  
  28.    this.DBMUGS = new DATABASE()
  29.    this.DBMUGS.parent = this
  30.    with (this.DBMUGS)
  31.       left = 6
  32.       top = 1
  33.       databaseName = "MUGS"
  34.       session = form.SESSIONMUGS
  35.       active = true
  36.    endwith
  37.  
  38. endclass
  39.